Apple Reference & Presen…rary 5 (Internal Edition)/Apple R&P Lib Internal v5.0.iso/6-Developer Demos/Developer Demos-Ed./Macintosh School® CD-ROM Demo/Macintosh SchoolÆ CD-ROM Demo/card_61645.txt

Text File | 1990-08-14 | 21.6 KB | 1,052 lines

-- card: 61645 from stack: in
-- bmap block id: 95426
-- flags: 4000
-- background id: 19276
-- name: Students & Courses
----- HyperTalk script -----
on openCard
  global buttonNumber
  put char 1 to 3 of the long date & "," & item 2 to 3 of the abbrev date into background field date
  set hilite of background button buttonNumber to false
end openCard

on closeCard
  global buttonNumber
  set hilite of background button buttonNumber to true
end closeCard

on resetCard
  set hilite of card button id 20 to false
  set hilite of card button id 21 to false
  set hilite of card button id 24 to false
  set hilite of card button id 25 to false
  set hilite of card button id 26 to false
  set hilite of card button id 27 to false
  set hilite of card button id 28 to false
  set hilite of card button id 29 to false
  set hilite of card button id 30 to false
  set hilite of card button id 31 to false
  set hilite of card button id 32 to false
  set icon of card button id 33 to "Md Unchecked Box"
  set icon of card button id 34 to "Md Unchecked Box"
  set icon of card button id 35 to "Md Unchecked Box"
  set icon of card button id 36 to "Md Unchecked Box"
  set icon of card button id 37 to "Md Unchecked Box"
  set icon of card button id 38 to "Md Unchecked Box"
  set icon of card button id 39 to "Md Unchecked Box"
  set icon of card button id 40 to "Md Unchecked Box"
  set the loc of card button "Thumb" to 139,265
  put "Study Hall" into card field "Course List"
  hide card button id 34
  hide card button id 35
  hide card button id 36
  put "N/A" into card field "Grade"
end resetCard



-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 2 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=262 top=31 right=48 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attendance & Marks
----- HyperTalk script -----
on mouseUp
  lock screen
  resetCard
  go to card short name of me of this background
  unlock screen
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=41 top=307 right=325 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  lock screen
  resetCard
  pop card
  unlock screen
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=119 top=307 right=325 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  lock screen
  resetCard
  pop card
  unlock screen
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=197 top=307 right=325 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prefs…
----- HyperTalk script -----
on mouseUp
  lock screen
  push card
  go to card short name of me of this background
  unlock screen
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=275 top=307 right=325 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear…
----- HyperTalk script -----
on mouseUp
  lock screen
  resetCard
  unlock screen
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=353 top=307 right=325 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Points & Credits


-- part 8 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=41 top=128 right=143 bottom=76
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Revert
----- HyperTalk script -----
on mouseUp
  repeat with index = 9 to 22
    set hilite of card button index to false
  end repeat
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=78 top=129 right=142 bottom=90
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: K
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=93 top=129 right=142 bottom=105
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 1
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=108 top=129 right=142 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 2
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=123 top=129 right=142 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 3
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=138 top=129 right=142 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 4
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=153 top=129 right=142 bottom=165
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 5
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=168 top=129 right=142 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 6
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=183 top=129 right=142 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 7
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=198 top=129 right=142 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 8
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=213 top=129 right=142 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 9
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=228 top=129 right=142 bottom=240
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 10
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=243 top=129 right=142 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 11
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=258 top=129 right=142 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 12
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=273 top=129 right=142 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 5070 / 5070
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 13
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=302 top=128 right=143 bottom=337
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Revert
----- HyperTalk script -----
on mouseUp
  repeat with index = 24 to 32
    set hilite of card button index to false
  end repeat
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=339 top=129 right=142 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: M
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=354 top=129 right=142 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 1
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=369 top=129 right=142 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 2
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=384 top=129 right=142 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 3
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=399 top=129 right=142 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 4
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=414 top=129 right=142 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 5
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=429 top=129 right=142 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 6
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=444 top=129 right=142 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 7
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=459 top=129 right=142 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 8
----- HyperTalk script -----
on mouseUp
  if icon of me is 0 then set hilite of me to not hilite of me
  else beep
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=255 top=191 right=205 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 34 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=255 top=207 right=221 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 35 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=255 top=223 right=237 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 36 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=255 top=239 right=253 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 37 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=191 right=205 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=207 right=221 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=223 right=237 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=440 top=239 right=253 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 5064 / 5064
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name:
----- HyperTalk script -----
on mouseUp
  if icon of me is "5065" then
    set icon of me to "Md Unchecked Box"
  else set icon of me to "Md Checked Box"
end mouseUp


-- part 41 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=131 top=258 right=272 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Thumb


-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=131 top=258 right=272 bottom=256
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scroll Bar
----- HyperTalk script -----
on mouseUp
  lock screen
  set icon of card button id 33 to "Md Unchecked Box"
  set icon of card button id 34 to "Md Unchecked Box"
  set icon of card button id 35 to "Md Unchecked Box"
  set icon of card button id 36 to "Md Unchecked Box"
  get item 1 of the loc of card button "Thumb"
  if it is 139 then
    set the loc of card button "Thumb" to 193,265
    put "Algebra" & return & "Biology" & return & "Biology Lab" & return & "Chemistry" into card field "Course List"
    show card button id 34
    show card button id 35
    show card button id 36
    put "11" into card field "Grade"
  else if it is 193 then
    if the clickH >= 193 then
      set the loc of card button "Thumb" to 248,265
      put "Algebra" & return & "Biology" & return & "Bookkeeping" & return & "Chemistry" into card field "Course List"
      put "12" into card field "Grade"
    else
      set the loc of card button "Thumb" to 139,265
      put "Study Hall" into card field "Course List"
      hide card button id 34
      hide card button id 35
      hide card button id 36
      put "N/A" into card field "Grade"
    end if
  else if it is 248 then
    set the loc of card button "Thumb" to 193,265
    put "Algebra" & return & "Biology" & return & "Biology Lab" & return & "Chemistry" into card field "Course List"
    put "11" into card field "Grade"
  end if
  unlock screen
end mouseUp


-- part 43 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=41 top=190 right=258 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Course List


-- part 44 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=74 top=258 right=272 bottom=112
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Grade


-- part contents for background part 3
----- text -----
47
80
53
54
52
102
48
13
94
93
103
104
44





-- part contents for background part 4
----- text -----
Abrosimoff, Michael John
Adams, Bryan
Alexander, Rick
Alexander, Susan
Allsop, Blair M.
Azimov, Isaac
Barisoff, Larissa
Bunyan, Paul
Burnyeat, Grant
Caldwell, Brian
Chalk, Patricia
Collins, Bob
Conkin, Elizabeth

-- part contents for background part 5
----- text -----
112
112
112
112
112
N/A
112
112
112
112
N/A
N/A
112

-- part contents for background part 6
----- text -----
12
12
12
12
12
11
12
12
12
12
11
11
12

-- part contents for background part 7
----- text -----
0.000
0.000
0.000
0.000
0.000
1.000
0.000
0.000
0.000
0.000
0.000
0.000
0.000

-- part contents for background part 8
----- text -----
1
1
1
1
1
1
1
1
1
1
7
7
1

-- part contents for background part 1
----- text -----
99 Students

-- part contents for background part 2
----- text -----
Wed, Aug 30, 1989

-- part contents for card part 43
----- text -----
Study Hall

-- part contents for card part 44
----- text -----
N/A